home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / ixemul-complete / ixemul / library / __fstat.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-08-18  |  7.2 KB  |  214 lines
  1. /*
  2.  *  This file is part of ixemul.library for the Amiga.
  3.  *  Copyright (C) 1991, 1992  Markus M. Wild
  4.  *
  5.  *  This library is free software; you can redistribute it and/or
  6.  *  modify it under the terms of the GNU Library General Public
  7.  *  License as published by the Free Software Foundation; either
  8.  *  version 2 of the License, or (at your option) any later version.
  9.  *
  10.  *  This library is distributed in the hope that it will be useful,
  11.  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  12.  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13.  *  Library General Public License for more details.
  14.  *
  15.  *  You should have received a copy of the GNU Library General Public
  16.  *  License along with this library; if not, write to the Free
  17.  *  Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18.  *
  19.  *  __fstat.c,v 1.1.1.1 1994/04/04 04:30:08 amiga Exp
  20.  *
  21.  *  __fstat.c,v
  22.  * Revision 1.1.1.1  1994/04/04  04:30:08  amiga
  23.  * Initial CVS check in.
  24.  *
  25.  *  Revision 1.2  1993/11/05  21:49:59  mw
  26.  *  "grp/oth-perms,
  27.  *
  28.  *  Revision 1.1  1992/05/14  19:55:40  mwild
  29.  *  Initial revision
  30.  *
  31.  */
  32.  
  33. #define _KERNEL
  34. #include <string.h>
  35. #include <stdio.h>
  36. #include "ixemul.h"
  37. #include "kprintf.h"
  38.  
  39. #ifndef ACTION_EXAMINE_FH
  40. #define ACTION_EXAMINE_FH 1034
  41. #endif
  42.  
  43. /************************************************************************/
  44. /*                                                                      */
  45. /*    fstat() function.                                                 */
  46. /*                                                                      */
  47. /************************************************************************/
  48.  
  49. int
  50. __fstat(struct file *f)
  51. {
  52.   long len, pos;
  53.   struct FileInfoBlock *fib;
  54.   struct InfoData *info;
  55.   int omask;
  56.   BPTR lock;
  57.   struct stat *st = &f->f_stb;
  58.  
  59.   omask = syscall (SYS_sigsetmask, ~0);
  60.   __get_file (f);
  61.   st->st_uid = geteuid();
  62.   st->st_gid = getegid();
  63.  
  64.   /* take special care of NIL:, /dev/null and friends ;-) */
  65.   if (HANDLER_NIL(f))
  66.     {
  67.       st->st_mode = S_IFCHR | 0777;
  68.       st->st_nlink = 1;
  69.       st->st_blksize = ix.ix_fs_buf_factor * 512;
  70.       st->st_blocks = 0;
  71.       goto end;
  72.     }
  73.  
  74.   info = alloca (sizeof (*info) + 2);
  75.   info = LONG_ALIGN (info);
  76.   fib  = alloca (sizeof (*fib) + 2);
  77.   fib  = LONG_ALIGN (fib);
  78.     
  79.   /* reset the error field */
  80.   LastError (f) = 0;
  81.  
  82.   /* we now have two possibilities.. either the filesystem understands the
  83.    * new ACTION_EXAMINE_FH packet, or we have to do some guesses at fields.. */
  84.   SendPacket2 (f, __srwport, ACTION_EXAMINE_FH, f->f_fh->fh_Arg1, CTOBPTR(fib));
  85.   __wait_sync_packet (&f->f_sp);
  86.   if (LastResult(f))
  87.     {
  88.       int mode = fill_stat_mode(st, fib);    /* see stat.c */
  89.  
  90.       /* read the uid/gid data */
  91.       if (muBase)
  92.         {
  93.           st->st_uid = fib->fib_OwnerUID;
  94.           st->st_gid = fib->fib_OwnerGID;
  95.         }
  96.       /* ARGLLLLL !!!
  97.          Some (newer, hi Bill Hawes ;-)) handlers support EXAMINE_FH, but
  98.          don't know yet about ST_PIPEFILE. So console windows claim they're
  99.          plain files... Until this problem is fixed in a majority of
  100.          handlers, do an explicit SEEK here to find those fakers.. */
  101.       LastError(f) = 0;
  102.       SendPacket3(f, __srwport, ACTION_SEEK, f->f_fh->fh_Arg1, 0, OFFSET_CURRENT);
  103.       __wait_sync_packet (&f->f_sp);
  104.       if (LastError (f))
  105.         mode = (mode & ~S_IFREG) | S_IFCHR;
  106.  
  107.       st->st_mode = mode;
  108.  
  109.       /* support for annotated attributes (cool name ;-)) */
  110.       if (! strncmp (fib->fib_Comment, "!SP!", 4))
  111.         {
  112.           int sp_mode, sp_addr;
  113.  
  114.           if (sscanf (fib->fib_Comment + 4, "%x!%x", &sp_mode, &sp_addr) == 2)
  115.             st->st_mode = sp_mode;
  116.         }
  117.   
  118.       /* some kind of a default-size for directories... */
  119.       st->st_size = fib->fib_DirEntryType < 0 ? fib->fib_Size : 1024; 
  120.       st->st_handler = (long)f->f_fh->fh_Type;
  121.       st->st_dev = (dev_t)st->st_handler; /* trunc to 16 bit */
  122.       lock = DupLockFromFH(CTOBPTR(f->f_fh));
  123.       if (lock)
  124.         {
  125.       /* The fl_Key field of the FileLock structure is always unique. This is
  126.          also true for filesystems like AFS and AFSFloppy. Thanks to Michiel
  127.          Pelt (the AFS author) for helping me with this. */
  128.       st->st_ino = (ino_t)((struct FileLock *)(BTOCPTR(lock)))->fl_Key;
  129.           UnLock(lock);
  130.         }
  131.       st->st_atime =
  132.       st->st_ctime =
  133.       st->st_mtime = (8*365+2)*24*3600 + ix_get_gmt_offset() +
  134.                   fib->fib_Date.ds_Days * 24 * 60 * 60 +
  135.                   fib->fib_Date.ds_Minute * 60 +
  136.                   fib->fib_Date.ds_Tick/TICKS_PER_SECOND;
  137.       /* in a try to count the blocks used for filemanagement, we add one for
  138.        * the fileheader. Note, that this is wrong for large files, where there
  139.        * are some extension-blocks as well */
  140.       st->st_blocks = fib->fib_NumBlocks + 1;
  141.     }
  142.   else
  143.     {
  144.       /* ATTENTION: see lseek.c for Bugs in Seek() and ACTION_SEEK ! */
  145.       /* seek to EOF */
  146.       SendPacket3 (f, __srwport, ACTION_SEEK, f->f_fh->fh_Arg1, 0, OFFSET_END);
  147.       __wait_sync_packet (&f->f_sp);
  148.       pos = LastResult (f);
  149.       if (pos >= 0 && LastError (f) != ERROR_ACTION_NOT_KNOWN)
  150.         {
  151.           SendPacket3 (f, __srwport,ACTION_SEEK, f->f_fh->fh_Arg1, 
  152.                    pos, OFFSET_BEGINNING);
  153.           __wait_sync_packet (&f->f_sp);
  154.           len = LastError (f) ? -1 : LastResult (f);
  155.         }
  156.       else
  157.         len = 0;
  158.  
  159.       bzero (st, sizeof(struct stat));
  160.  
  161.       st->st_mode = ((len >= 0 && !f->f_fh->fh_Port) ? S_IFREG : S_IFCHR) | 0777;
  162.       st->st_handler = (long)f->f_fh->fh_Type;
  163.       /* the following is a limited try to support programs, that assume that
  164.        * st_dev is always valid */
  165.       st->st_dev = (dev_t)(long)(f->f_fh->fh_Type); /* truncate to 16 bit */
  166.       /* yet another kludge.. if we call this with different descriptors, we
  167.        * should get different inode numbers.. grmpf.. */
  168.       st->st_ino = (ino_t)~(long)(f->f_fh);
  169.       st->st_nlink = 1; /* for now no problem.. 2.0... */
  170.       /* len could be -1, if the device doesn't allow seeking.. */
  171.       st->st_size = len >= 0 ? len : 0;
  172.       st->st_atime =  
  173.       st->st_mtime =
  174.       st->st_ctime = syscall (SYS_time, 0);
  175.     }
  176.  
  177.   /* try to find out block size of device, hey postman, it's packet-time
  178.    * again:-)) */
  179.  
  180.   /* clear the info-structure. Since this packet is used by the console
  181.    * handler to transmit the window pointer, it actually answers the
  182.    * request, but doesn't set the not used fields to 0.. this gives HUGE
  183.    * block lengths :-)) */
  184.   bzero (info, sizeof(*info));
  185.   SendPacket1(f, __srwport, ACTION_DISK_INFO, CTOBPTR(info));
  186.   __wait_sync_packet(&f->f_sp);
  187.  
  188.   st->st_blksize = 0;
  189.   if (LastResult (f) && info->id_BytesPerBlock)
  190.     {
  191.       st->st_blksize = info->id_BytesPerBlock;
  192.       if (!IsInteractive(CTOBPTR(f->f_fh)) && S_ISREG(st->st_mode))
  193.     st->st_blksize *= ix.ix_fs_buf_factor;
  194.       if (!st->st_blocks) 
  195.     st->st_blocks = ((st->st_size + info->id_BytesPerBlock - 1) 
  196.                     / info->id_BytesPerBlock);
  197.       else
  198.         st->st_blocks = (st->st_blocks * info->id_BytesPerBlock) / 512;
  199.     }
  200.   if (!st->st_blksize) 
  201.     {
  202.       st->st_blksize = 512;
  203.       st->st_blocks = (st->st_size + 511) >> 9;
  204.     }
  205.  
  206. end:
  207.   /* reset error of packet. write() would fail if not */
  208.   LastResult(f) = 0;
  209.  
  210.   __release_file (f);
  211.   syscall (SYS_sigsetmask, omask);
  212.   return 0;
  213. }
  214.